home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_4760.txt < prev    next >
Text File  |  1988-09-28  |  3KB  |  163 lines

  1. -- card: 4760 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: Days
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the time into field 4
  9. end idle
  10.  
  11. on opencard
  12.   global lastday
  13.   put lastday into field "laston"
  14.   put the abbrev date into field "now"
  15. end opencard
  16.  
  17.  
  18. -- part 2 (field)
  19. -- low flags: 00
  20. -- high flags: 0004
  21. -- rect: left=57 top=67 right=182 bottom=457
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 2
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: 
  30.  
  31.  
  32. -- part 3 (button)
  33. -- low flags: 00
  34. -- high flags: 8004
  35. -- rect: left=18 top=196 right=218 bottom=118
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Subtract a day
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   global port
  47.   sendSPort port,false,"-"&return
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 4 (button)
  53. -- low flags: 00
  54. -- high flags: 8004
  55. -- rect: left=147 top=196 right=218 bottom=247
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Add a day
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   global port
  67.   sendSPort port,false,"+"&return
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 6 (button)
  73. -- low flags: 00
  74. -- high flags: 8004
  75. -- rect: left=276 top=196 right=218 bottom=376
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Today's date
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   global port
  87.   sendSPort port,false,"s"&return
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 7 (button)
  93. -- low flags: 00
  94. -- high flags: 8004
  95. -- rect: left=395 top=196 right=218 bottom=495
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Quit/Done
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   global port
  107.   sendSPort port,false,"q"&return
  108.   pop card
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 8 (button)
  114. -- low flags: 00
  115. -- high flags: 0000
  116. -- rect: left=54 top=31 right=68 bottom=90
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 21060 / 21060
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: New Button
  125.  
  126.  
  127. -- part contents for background part 1
  128. ----- text -----
  129.  
  130.  
  131.  
  132.  
  133.  
  134. Sat, Jul 2, 1988, 6:53 PM
  135.  
  136. -- part contents for background part 5
  137. ----- text -----
  138. 9:00 PM
  139.  
  140. -- part contents for background part 4
  141. ----- text -----
  142. Thu, Sep 22, 1988
  143.  
  144. -- part contents for card part 2
  145. ----- text -----
  146. *******
  147. Welcome, Phil Smy, from Ottawa!
  148. Connected on 07/11/88 at 15:50:25
  149. You have called this system 59 times.
  150. You last called on 07/06/88 at 12:28:54
  151. You have uploaded 1 files and have downloaded 7 files.
  152. You have sent 17 private messages and 3 public messages.
  153.  
  154. E  
  155.  
  156.  
  157.    [A]dd this section to global scan
  158.  
  159.  
  160.  
  161. -- part contents for background part 3
  162. ----- text -----
  163. Thu, Sep 22, 1988, 9:08 AM